20 IF  ABS(XD) < = X1/1E5  AND  ABS(Y2) <Y1/50  THEN XD = 0
30 E=7
